00010	SRATE←25000;MAG←512/SRATE;SPEED←2;
00100	COMPILE;INSTRUMENT NOISE;
00200	OSCIL[25](P4,25*MAG/P2,P5);<ENVELOPE
00300	RANDI(P7*MAG,P8*MAG);<P7=BAND WIDTH, P8=RATE
00350	<FOR NOISE MAKE P7=P3, P8=4*P3
00400	NOSCIL(U1,P3*MAG+U2,P6);
00500	OUTA←OUTA+U3;END;FINISH;
00600	
00700	ARRAY F3,F2(512);
00750	SEG(F3);0 1 1  3 .2 40 .05 70 0 100;
00800	SEG(F2);0 1   1 12  1 66  0 100;
00900	PLAY;NOISE 0 .5 C*8 1000 F2 F1 P3 P3*4 ;FINISH;